module technical
implicit none
public 
integer,parameter :: labellen=25
double precision, parameter :: pi=3.14159265358979324D0
contains
!======================
  subroutine fatal_error(location,message)
!
    character(len=*) :: location
    character(len=*) :: message
    
    write(*,*)'FATAL ERROR: ',location,' ',message
    STOP 1
endsubroutine fatal_error
!========================
  subroutine warning(location,message)
!
    character(len=*) :: location
    character(len=*) :: message
    
    write(*,*)'WARNING',location,message
    write(*,*)'will however proceed'
endsubroutine warning
!==========================

!============================================
end module technical
